/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / samples / automacro.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 6e 65 77 69 66 5c 69 | 66 73 69 6d 62 6f 6c 69 |\newif\i|fsimboli|
|00000010| 0a 5c 6e 65 77 69 66 5c | 69 66 72 69 66 65 72 69 |.\newif\|ifriferi|
|00000020| 6d 65 6e 74 69 0a 0a 5c | 6e 65 77 77 72 69 74 65 |menti..\|newwrite|
|00000030| 5c 66 69 6c 65 73 69 6d | 62 6f 6c 69 0a 5c 64 65 |\filesim|boli.\de|
|00000040| 66 5c 73 69 6d 62 6f 6c | 69 7b 0a 20 20 20 20 5c |f\simbol|i{.    \|
|00000050| 69 6d 6d 65 64 69 61 74 | 65 5c 77 72 69 74 65 31 |immediat|e\write1|
|00000060| 36 7b 20 21 21 21 20 47 | 65 6e 65 72 61 20 69 6c |6{ !!! G|enera il|
|00000070| 20 66 69 6c 65 20 5c 6a | 6f 62 6e 61 6d 65 2e 53 | file \j|obname.S|
|00000080| 4d 42 20 7d 0a 20 20 20 | 20 5c 73 69 6d 62 6f 6c |MB }.   | \simbol|
|00000090| 69 74 72 75 65 5c 69 6d | 6d 65 64 69 61 74 65 5c |itrue\im|mediate\|
|000000a0| 6f 70 65 6e 6f 75 74 5c | 66 69 6c 65 73 69 6d 62 |openout\|filesimb|
|000000b0| 6f 6c 69 3d 5c 6a 6f 62 | 6e 61 6d 65 2e 73 6d 62 |oli=\job|name.smb|
|000000c0| 7d 0a 0a 5c 6e 65 77 77 | 72 69 74 65 5c 66 69 6c |}..\neww|rite\fil|
|000000d0| 65 61 75 73 69 6c 69 61 | 72 69 6f 0a 5c 64 65 66 |eausilia|rio.\def|
|000000e0| 5c 72 69 66 65 72 69 6d | 65 6e 74 69 66 75 74 75 |\riferim|entifutu|
|000000f0| 72 69 7b 0a 20 20 20 20 | 5c 69 6d 6d 65 64 69 61 |ri{.    |\immedia|
|00000100| 74 65 5c 77 72 69 74 65 | 31 36 7b 20 21 21 21 20 |te\write|16{ !!! |
|00000110| 47 65 6e 65 72 61 20 69 | 6c 20 66 69 6c 65 20 5c |Genera i|l file \|
|00000120| 6a 6f 62 6e 61 6d 65 2e | 41 55 58 20 7d 0a 20 20 |jobname.|AUX }.  |
|00000130| 20 20 5c 72 69 66 65 72 | 69 6d 65 6e 74 69 74 72 |  \rifer|imentitr|
|00000140| 75 65 5c 6f 70 65 6e 69 | 6e 31 20 5c 6a 6f 62 6e |ue\openi|n1 \jobn|
|00000150| 61 6d 65 2e 61 75 78 0a | 20 20 20 20 5c 69 66 65 |ame.aux.|    \ife|
|00000160| 6f 66 31 5c 72 65 6c 61 | 78 5c 65 6c 73 65 5c 63 |of1\rela|x\else\c|
|00000170| 6c 6f 73 65 69 6e 31 5c | 72 65 6c 61 78 5c 69 6e |losein1\|relax\in|
|00000180| 70 75 74 5c 6a 6f 62 6e | 61 6d 65 2e 61 75 78 5c |put\jobn|ame.aux\|
|00000190| 66 69 0a 20 20 20 20 5c | 69 6d 6d 65 64 69 61 74 |fi.    \|immediat|
|000001a0| 65 5c 6f 70 65 6e 6f 75 | 74 5c 66 69 6c 65 61 75 |e\openou|t\fileau|
|000001b0| 73 69 6c 69 61 72 69 6f | 3d 5c 6a 6f 62 6e 61 6d |siliario|=\jobnam|
|000001c0| 65 2e 61 75 78 7d 0a 0a | 5c 6e 65 77 63 6f 75 6e |e.aux}..|\newcoun|
|000001d0| 74 5c 73 65 63 74 6e 75 | 6d 5c 67 6c 6f 62 61 6c |t\sectnu|m\global|
|000001e0| 5c 73 65 63 74 6e 75 6d | 3d 30 0a 5c 6e 65 77 63 |\sectnum|=0.\newc|
|000001f0| 6f 75 6e 74 5c 65 71 6e | 75 6d 5c 67 6c 6f 62 61 |ount\eqn|um\globa|
|00000200| 6c 5c 65 71 6e 75 6d 3d | 30 0a 5c 6e 65 77 63 6f |l\eqnum=|0.\newco|
|00000210| 75 6e 74 5c 63 69 74 6e | 75 6d 5c 67 6c 6f 62 61 |unt\citn|um\globa|
|00000220| 6c 5c 63 69 74 6e 75 6d | 3d 30 0a 0a 5c 6e 65 77 |l\citnum|=0..\new|
|00000230| 69 66 5c 69 66 6e 64 6f | 70 70 69 61 0a 5c 64 65 |if\ifndo|ppia.\de|
|00000240| 66 5c 6e 75 6d 65 72 61 | 7a 69 6f 6e 65 64 6f 70 |f\numera|zionedop|
|00000250| 70 69 61 7b 5c 6e 64 6f | 70 70 69 61 74 72 75 65 |pia{\ndo|ppiatrue|
|00000260| 5c 67 64 65 66 5c 6c 61 | 73 65 7a 69 6f 6e 65 63 |\gdef\la|sezionec|
|00000270| 6f 72 72 65 6e 74 65 7b | 5c 74 68 65 5c 73 65 63 |orrente{|\the\sec|
|00000280| 74 6e 75 6d 7d 7d 0a 0a | 5c 64 65 66 5c 73 65 69 |tnum}}..|\def\sei|
|00000290| 6e 64 65 66 69 6e 69 74 | 6f 23 31 7b 5c 65 78 70 |ndefinit|o#1{\exp|
|000002a0| 61 6e 64 61 66 74 65 72 | 5c 69 66 78 5c 63 73 6e |andafter|\ifx\csn|
|000002b0| 61 6d 65 23 31 5c 65 6e | 64 63 73 6e 61 6d 65 5c |ame#1\en|dcsname\|
|000002c0| 72 65 6c 61 78 7d 0a 5c | 64 65 66 5c 73 70 6f 67 |relax}.\|def\spog|
|000002d0| 6c 69 61 23 31 3e 7b 7d | 0a 0a 5c 64 65 66 5c 63 |lia#1>{}|..\def\c|
|000002e0| 72 65 66 23 31 7b 5c 73 | 65 69 6e 64 65 66 69 6e |ref#1{\s|eindefin|
|000002f0| 69 74 6f 7b 40 63 40 23 | 31 7d 5c 69 6d 6d 65 64 |ito{@c@#|1}\immed|
|00000300| 69 61 74 65 5c 77 72 69 | 74 65 31 36 7b 20 21 21 |iate\wri|te16{ !!|
|00000310| 21 20 5c 73 74 72 69 6e | 67 5c 63 72 65 66 7b 23 |! \strin|g\cref{#|
|00000320| 31 7d 0a 20 20 20 20 6e | 6f 6e 20 64 65 66 69 6e |1}.    n|on defin|
|00000330| 69 74 61 20 21 21 21 7d | 0a 20 20 20 20 5c 65 78 |ita !!!}|.    \ex|
|00000340| 70 61 6e 64 61 66 74 65 | 72 5c 78 64 65 66 5c 63 |pandafte|r\xdef\c|
|00000350| 73 6e 61 6d 65 40 63 40 | 23 31 5c 65 6e 64 63 73 |sname@c@|#1\endcs|
|00000360| 6e 61 6d 65 7b 3f 3f 7d | 5c 66 69 5c 63 73 6e 61 |name{??}|\fi\csna|
|00000370| 6d 65 40 63 40 23 31 5c | 65 6e 64 63 73 6e 61 6d |me@c@#1\|endcsnam|
|00000380| 65 7d 0a 0a 5c 64 65 66 | 5c 65 71 72 65 66 23 31 |e}..\def|\eqref#1|
|00000390| 7b 5c 73 65 69 6e 64 65 | 66 69 6e 69 74 6f 7b 40 |{\seinde|finito{@|
|000003a0| 65 71 40 23 31 7d 5c 69 | 6d 6d 65 64 69 61 74 65 |eq@#1}\i|mmediate|
|000003b0| 5c 77 72 69 74 65 31 36 | 7b 20 21 21 21 20 5c 73 |\write16|{ !!! \s|
|000003c0| 74 72 69 6e 67 5c 65 71 | 72 65 66 7b 23 31 7d 0a |tring\eq|ref{#1}.|
|000003d0| 20 20 20 20 6e 6f 6e 20 | 64 65 66 69 6e 69 74 61 |    non |definita|
|000003e0| 20 21 21 21 7d 0a 20 20 | 20 20 5c 65 78 70 61 6e | !!!}.  |  \expan|
|000003f0| 64 61 66 74 65 72 5c 78 | 64 65 66 5c 63 73 6e 61 |dafter\x|def\csna|
|00000400| 6d 65 40 65 71 40 23 31 | 5c 65 6e 64 63 73 6e 61 |me@eq@#1|\endcsna|
|00000410| 6d 65 7b 3f 3f 7d 5c 66 | 69 5c 63 73 6e 61 6d 65 |me{??}\f|i\csname|
|00000420| 40 65 71 40 23 31 5c 65 | 6e 64 63 73 6e 61 6d 65 |@eq@#1\e|ndcsname|
|00000430| 7d 0a 0a 5c 64 65 66 5c | 73 72 65 66 23 31 7b 5c |}..\def\|sref#1{\|
|00000440| 73 65 69 6e 64 65 66 69 | 6e 69 74 6f 7b 40 73 40 |seindefi|nito{@s@|
|00000450| 23 31 7d 5c 69 6d 6d 65 | 64 69 61 74 65 5c 77 72 |#1}\imme|diate\wr|
|00000460| 69 74 65 31 36 7b 20 21 | 21 21 20 5c 73 74 72 69 |ite16{ !|!! \stri|
|00000470| 6e 67 5c 73 72 65 66 7b | 23 31 7d 0a 20 20 20 20 |ng\sref{|#1}.    |
|00000480| 6e 6f 6e 20 64 65 66 69 | 6e 69 74 61 20 21 21 21 |non defi|nita !!!|
|00000490| 7d 0a 20 20 20 20 5c 65 | 78 70 61 6e 64 61 66 74 |}.    \e|xpandaft|
|000004a0| 65 72 5c 78 64 65 66 5c | 63 73 6e 61 6d 65 40 73 |er\xdef\|csname@s|
|000004b0| 40 23 31 5c 65 6e 64 63 | 73 6e 61 6d 65 7b 3f 3f |@#1\endc|sname{??|
|000004c0| 7d 5c 66 69 5c 63 73 6e | 61 6d 65 40 73 40 23 31 |}\fi\csn|ame@s@#1|
|000004d0| 5c 65 6e 64 63 73 6e 61 | 6d 65 7d 0a 0a 5c 64 65 |\endcsna|me}..\de|
|000004e0| 66 5c 73 65 63 74 69 6f | 6e 23 31 5c 70 61 72 7b |f\sectio|n#1\par{|
|000004f0| 5c 69 6d 6d 65 64 69 61 | 74 65 5c 77 72 69 74 65 |\immedia|te\write|
|00000500| 31 36 7b 23 31 7d 5c 67 | 6f 6f 64 62 72 65 61 6b |16{#1}\g|oodbreak|
|00000510| 5c 76 73 6b 69 70 20 34 | 38 70 74 20 70 6c 75 73 |\vskip 4|8pt plus|
|00000520| 20 36 30 70 74 0a 20 20 | 20 20 5c 6e 6f 69 6e 64 | 60pt.  |  \noind|
|00000530| 65 6e 74 7b 5c 62 66 23 | 31 7d 5c 6e 6f 62 72 65 |ent{\bf#|1}\nobre|
|00000540| 61 6b 5c 76 73 6b 69 70 | 20 31 35 70 74 5c 6e 6f |ak\vskip| 15pt\no|
|00000550| 62 72 65 61 6b 5c 6e 6f | 69 6e 64 65 6e 74 7d 0a |break\no|indent}.|
|00000560| 0a 5c 64 65 66 5c 61 75 | 74 6f 73 65 63 74 69 6f |.\def\au|tosectio|
|00000570| 6e 23 31 23 32 5c 70 61 | 72 7b 0a 20 20 20 20 5c |n#1#2\pa|r{.    \|
|00000580| 67 6c 6f 62 61 6c 5c 61 | 64 76 61 6e 63 65 5c 73 |global\a|dvance\s|
|00000590| 65 63 74 6e 75 6d 20 62 | 79 20 31 5c 69 66 6e 64 |ectnum b|y 1\ifnd|
|000005a0| 6f 70 70 69 61 5c 67 6c | 6f 62 61 6c 5c 65 71 6e |oppia\gl|obal\eqn|
|000005b0| 75 6d 3d 30 5c 66 69 0a | 20 20 20 20 5c 78 64 65 |um=0\fi.|    \xde|
|000005c0| 66 5c 6c 61 73 65 7a 69 | 6f 6e 65 63 6f 72 72 65 |f\lasezi|onecorre|
|000005d0| 6e 74 65 7b 5c 74 68 65 | 5c 73 65 63 74 6e 75 6d |nte{\the|\sectnum|
|000005e0| 7d 0a 20 20 20 20 5c 64 | 65 66 5c 75 73 61 65 67 |}.    \d|ef\usaeg|
|000005f0| 65 74 74 61 7b 31 7d 5c | 73 65 69 6e 64 65 66 69 |etta{1}\|seindefi|
|00000600| 6e 69 74 6f 7b 40 73 40 | 23 31 7d 5c 64 65 66 5c |nito{@s@|#1}\def\|
|00000610| 75 73 61 65 67 65 74 74 | 61 7b 32 7d 5c 66 69 0a |usaegett|a{2}\fi.|
|00000620| 20 20 20 20 5c 65 78 70 | 61 6e 64 61 66 74 65 72 |    \exp|andafter|
|00000630| 5c 69 66 78 5c 63 73 6e | 61 6d 65 40 73 40 23 31 |\ifx\csn|ame@s@#1|
|00000640| 5c 65 6e 64 63 73 6e 61 | 6d 65 5c 6c 61 73 65 7a |\endcsna|me\lasez|
|00000650| 69 6f 6e 65 63 6f 72 72 | 65 6e 74 65 5c 64 65 66 |ionecorr|ente\def|
|00000660| 5c 75 73 61 65 67 65 74 | 74 61 7b 32 7d 5c 66 69 |\usaeget|ta{2}\fi|
|00000670| 0a 20 20 20 20 5c 69 66 | 6f 64 64 5c 75 73 61 65 |.    \if|odd\usae|
|00000680| 67 65 74 74 61 5c 69 6d | 6d 65 64 69 61 74 65 5c |getta\im|mediate\|
|00000690| 77 72 69 74 65 31 36 0a | 20 20 20 20 20 20 7b 20 |write16.|      { |
|000006a0| 21 21 21 20 70 6f 73 73 | 69 62 69 6c 69 20 72 69 |!!! poss|ibili ri|
|000006b0| 66 65 72 69 6d 65 6e 74 | 69 20 65 72 72 61 74 69 |feriment|i errati|
|000006c0| 20 61 20 5c 73 74 72 69 | 6e 67 5c 73 72 65 66 7b | a \stri|ng\sref{|
|000006d0| 23 31 7d 20 7d 5c 66 69 | 0a 20 20 20 20 5c 65 78 |#1} }\fi|.    \ex|
|000006e0| 70 61 6e 64 61 66 74 65 | 72 5c 78 64 65 66 5c 63 |pandafte|r\xdef\c|
|000006f0| 73 6e 61 6d 65 40 73 40 | 23 31 5c 65 6e 64 63 73 |sname@s@|#1\endcs|
|00000700| 6e 61 6d 65 7b 5c 6c 61 | 73 65 7a 69 6f 6e 65 63 |name{\la|sezionec|
|00000710| 6f 72 72 65 6e 74 65 7d | 0a 20 20 20 20 5c 69 6d |orrente}|.    \im|
|00000720| 6d 65 64 69 61 74 65 5c | 77 72 69 74 65 31 36 7b |mediate\|write16{|
|00000730| 5c 6c 61 73 65 7a 69 6f | 6e 65 63 6f 72 72 65 6e |\lasezio|necorren|
|00000740| 74 65 2e 20 23 32 7d 0a | 20 20 20 20 5c 69 66 73 |te. #2}.|    \ifs|
|00000750| 69 6d 62 6f 6c 69 0a 20 | 20 20 20 20 20 5c 69 6d |imboli. |     \im|
|00000760| 6d 65 64 69 61 74 65 5c | 77 72 69 74 65 5c 66 69 |mediate\|write\fi|
|00000770| 6c 65 73 69 6d 62 6f 6c | 69 7b 20 7d 5c 69 6d 6d |lesimbol|i{ }\imm|
|00000780| 65 64 69 61 74 65 5c 77 | 72 69 74 65 5c 66 69 6c |ediate\w|rite\fil|
|00000790| 65 73 69 6d 62 6f 6c 69 | 7b 20 7d 0a 20 20 20 20 |esimboli|{ }.    |
|000007a0| 20 20 5c 69 6d 6d 65 64 | 69 61 74 65 5c 77 72 69 |  \immed|iate\wri|
|000007b0| 74 65 5c 66 69 6c 65 73 | 69 6d 62 6f 6c 69 7b 20 |te\files|imboli{ |
|000007c0| 20 53 65 7a 69 6f 6e 65 | 20 5c 6c 61 73 65 7a 69 | Sezione| \lasezi|
|000007d0| 6f 6e 65 63 6f 72 72 65 | 6e 74 65 20 3a 20 20 20 |onecorre|nte :   |
|000007e0| 73 72 65 66 2e 20 20 20 | 23 31 7d 0a 20 20 20 20 |sref.   |#1}.    |
|000007f0| 20 20 5c 69 6d 6d 65 64 | 69 61 74 65 5c 77 72 69 |  \immed|iate\wri|
|00000800| 74 65 5c 66 69 6c 65 73 | 69 6d 62 6f 6c 69 7b 20 |te\files|imboli{ |
|00000810| 7d 20 5c 66 69 0a 20 20 | 20 20 5c 69 66 72 69 66 |} \fi.  |  \ifrif|
|00000820| 65 72 69 6d 65 6e 74 69 | 0a 20 20 20 20 20 20 5c |erimenti|.      \|
|00000830| 69 6d 6d 65 64 69 61 74 | 65 5c 77 72 69 74 65 5c |immediat|e\write\|
|00000840| 66 69 6c 65 61 75 73 69 | 6c 69 61 72 69 6f 7b 5c |fileausi|liario{\|
|00000850| 73 74 72 69 6e 67 5c 65 | 78 70 61 6e 64 61 66 74 |string\e|xpandaft|
|00000860| 65 72 5c 73 74 72 69 6e | 67 5c 65 64 65 66 0a 20 |er\strin|g\edef. |
|00000870| 20 20 20 20 20 5c 73 74 | 72 69 6e 67 5c 63 73 6e |     \st|ring\csn|
|00000880| 61 6d 65 40 73 40 23 31 | 5c 73 74 72 69 6e 67 5c |ame@s@#1|\string\|
|00000890| 65 6e 64 63 73 6e 61 6d | 65 7b 5c 6c 61 73 65 7a |endcsnam|e{\lasez|
|000008a0| 69 6f 6e 65 63 6f 72 72 | 65 6e 74 65 7d 7d 5c 66 |ionecorr|ente}}\f|
|000008b0| 69 0a 20 20 20 20 5c 67 | 6f 6f 64 62 72 65 61 6b |i.    \g|oodbreak|
|000008c0| 5c 76 73 6b 69 70 20 34 | 38 70 74 20 70 6c 75 73 |\vskip 4|8pt plus|
|000008d0| 20 36 30 70 74 0a 20 20 | 20 20 5c 6e 6f 69 6e 64 | 60pt.  |  \noind|
|000008e0| 65 6e 74 5c 68 62 6f 78 | 7b 5c 62 66 5c 74 68 65 |ent\hbox|{\bf\the|
|000008f0| 5c 73 65 63 74 6e 75 6d | 2e 5c 71 75 61 64 7b 7d |\sectnum|.\quad{}|
|00000900| 7d 7b 5c 62 66 23 32 7d | 5c 6e 6f 62 72 65 61 6b |}{\bf#2}|\nobreak|
|00000910| 5c 76 73 6b 69 70 20 31 | 35 70 74 0a 20 20 20 20 |\vskip 1|5pt.    |
|00000920| 5c 6e 6f 62 72 65 61 6b | 5c 6e 6f 69 6e 64 65 6e |\nobreak|\noinden|
|00000930| 74 7d 0a 0a 5c 64 65 66 | 5c 73 65 6d 69 61 75 74 |t}..\def|\semiaut|
|00000940| 6f 73 65 63 74 69 6f 6e | 23 31 23 32 5c 70 61 72 |osection|#1#2\par|
|00000950| 7b 0a 20 20 20 20 5c 67 | 64 65 66 5c 6c 61 73 65 |{.    \g|def\lase|
|00000960| 7a 69 6f 6e 65 63 6f 72 | 72 65 6e 74 65 7b 23 31 |zionecor|rente{#1|
|00000970| 7d 5c 69 66 6e 64 6f 70 | 70 69 61 5c 67 6c 6f 62 |}\ifndop|pia\glob|
|00000980| 61 6c 5c 65 71 6e 75 6d | 3d 30 5c 66 69 0a 20 20 |al\eqnum|=0\fi.  |
|00000990| 20 20 5c 69 66 73 69 6d | 62 6f 6c 69 0a 20 20 20 |  \ifsim|boli.   |
|000009a0| 20 20 20 5c 69 6d 6d 65 | 64 69 61 74 65 5c 77 72 |   \imme|diate\wr|
|000009b0| 69 74 65 5c 66 69 6c 65 | 73 69 6d 62 6f 6c 69 7b |ite\file|simboli{|
|000009c0| 20 7d 5c 69 6d 6d 65 64 | 69 61 74 65 5c 77 72 69 | }\immed|iate\wri|
|000009d0| 74 65 5c 66 69 6c 65 73 | 69 6d 62 6f 6c 69 7b 20 |te\files|imboli{ |
|000009e0| 7d 0a 20 20 20 20 20 20 | 5c 69 6d 6d 65 64 69 61 |}.      |\immedia|
|000009f0| 74 65 5c 77 72 69 74 65 | 5c 66 69 6c 65 73 69 6d |te\write|\filesim|
|00000a00| 62 6f 6c 69 7b 20 20 53 | 65 7a 69 6f 6e 65 20 2a |boli{  S|ezione *|
|00000a10| 2a 20 3a 20 73 72 65 66 | 2e 0a 20 20 20 20 20 20 |* : sref|..      |
|00000a20| 20 20 20 20 5c 65 78 70 | 61 6e 64 61 66 74 65 72 |    \exp|andafter|
|00000a30| 5c 73 70 6f 67 6c 69 61 | 5c 6d 65 61 6e 69 6e 67 |\spoglia|\meaning|
|00000a40| 5c 6c 61 73 65 7a 69 6f | 6e 65 63 6f 72 72 65 6e |\lasezio|necorren|
|00000a50| 74 65 7d 0a 20 20 20 20 | 20 20 5c 69 6d 6d 65 64 |te}.    |  \immed|
|00000a60| 69 61 74 65 5c 77 72 69 | 74 65 5c 66 69 6c 65 73 |iate\wri|te\files|
|00000a70| 69 6d 62 6f 6c 69 7b 20 | 7d 5c 66 69 0a 20 20 20 |imboli{ |}\fi.   |
|00000a80| 20 5c 73 65 63 74 69 6f | 6e 23 32 5c 70 61 72 7d | \sectio|n#2\par}|
|00000a90| 0a 0a 5c 64 65 66 5c 65 | 71 6c 61 62 65 6c 23 31 |..\def\e|qlabel#1|
|00000aa0| 7b 5c 67 6c 6f 62 61 6c | 5c 61 64 76 61 6e 63 65 |{\global|\advance|
|00000ab0| 5c 65 71 6e 75 6d 20 62 | 79 20 31 0a 20 20 20 20 |\eqnum b|y 1.    |
|00000ac0| 5c 69 66 6e 64 6f 70 70 | 69 61 5c 78 64 65 66 5c |\ifndopp|ia\xdef\|
|00000ad0| 69 6c 6e 75 6d 65 72 6f | 7b 5c 6c 61 73 65 7a 69 |ilnumero|{\lasezi|
|00000ae0| 6f 6e 65 63 6f 72 72 65 | 6e 74 65 2e 5c 74 68 65 |onecorre|nte.\the|
|00000af0| 5c 65 71 6e 75 6d 7d 0a | 20 20 20 20 20 20 20 5c |\eqnum}.|       \|
|00000b00| 65 6c 73 65 5c 78 64 65 | 66 5c 69 6c 6e 75 6d 65 |else\xde|f\ilnume|
|00000b10| 72 6f 7b 5c 74 68 65 5c | 65 71 6e 75 6d 7d 5c 66 |ro{\the\|eqnum}\f|
|00000b20| 69 0a 20 20 20 20 5c 64 | 65 66 5c 75 73 61 65 67 |i.    \d|ef\usaeg|
|00000b30| 65 74 74 61 7b 31 7d 5c | 73 65 69 6e 64 65 66 69 |etta{1}\|seindefi|
|00000b40| 6e 69 74 6f 7b 40 65 71 | 40 23 31 7d 5c 64 65 66 |nito{@eq|@#1}\def|
|00000b50| 5c 75 73 61 65 67 65 74 | 74 61 7b 32 7d 5c 66 69 |\usaeget|ta{2}\fi|
|00000b60| 0a 20 20 20 20 5c 65 78 | 70 61 6e 64 61 66 74 65 |.    \ex|pandafte|
|00000b70| 72 5c 69 66 78 5c 63 73 | 6e 61 6d 65 40 65 71 40 |r\ifx\cs|name@eq@|
|00000b80| 23 31 5c 65 6e 64 63 73 | 6e 61 6d 65 5c 69 6c 6e |#1\endcs|name\iln|
|00000b90| 75 6d 65 72 6f 5c 64 65 | 66 5c 75 73 61 65 67 65 |umero\de|f\usaege|
|00000ba0| 74 74 61 7b 32 7d 5c 66 | 69 0a 20 20 20 20 5c 69 |tta{2}\f|i.    \i|
|00000bb0| 66 6f 64 64 5c 75 73 61 | 65 67 65 74 74 61 5c 69 |fodd\usa|egetta\i|
|00000bc0| 6d 6d 65 64 69 61 74 65 | 5c 77 72 69 74 65 31 36 |mmediate|\write16|
|00000bd0| 0a 20 20 20 20 20 20 20 | 7b 20 21 21 21 20 70 6f |.       |{ !!! po|
|00000be0| 73 73 69 62 69 6c 69 20 | 72 69 66 65 72 69 6d 65 |ssibili |riferime|
|00000bf0| 6e 74 69 20 65 72 72 61 | 74 69 20 61 20 5c 73 74 |nti erra|ti a \st|
|00000c00| 72 69 6e 67 5c 65 71 72 | 65 66 7b 23 31 7d 20 7d |ring\eqr|ef{#1} }|
|00000c10| 5c 66 69 0a 20 20 20 20 | 5c 65 78 70 61 6e 64 61 |\fi.    |\expanda|
|00000c20| 66 74 65 72 5c 78 64 65 | 66 5c 63 73 6e 61 6d 65 |fter\xde|f\csname|
|00000c30| 40 65 71 40 23 31 5c 65 | 6e 64 63 73 6e 61 6d 65 |@eq@#1\e|ndcsname|
|00000c40| 7b 5c 69 6c 6e 75 6d 65 | 72 6f 7d 0a 20 20 20 20 |{\ilnume|ro}.    |
|00000c50| 5c 69 66 6e 64 6f 70 70 | 69 61 0a 20 20 20 20 20 |\ifndopp|ia.     |
|00000c60| 20 20 5c 64 65 66 5c 75 | 73 61 65 67 65 74 74 61 |  \def\u|saegetta|
|00000c70| 7b 5c 65 78 70 61 6e 64 | 61 66 74 65 72 5c 73 70 |{\expand|after\sp|
|00000c80| 6f 67 6c 69 61 5c 6d 65 | 61 6e 69 6e 67 5c 6c 61 |oglia\me|aning\la|
|00000c90| 73 65 7a 69 6f 6e 65 63 | 6f 72 72 65 6e 74 65 2e |sezionec|orrente.|
|00000ca0| 5c 74 68 65 5c 65 71 6e | 75 6d 7d 0a 20 20 20 20 |\the\eqn|um}.    |
|00000cb0| 20 20 20 5c 65 6c 73 65 | 5c 64 65 66 5c 75 73 61 |   \else|\def\usa|
|00000cc0| 65 67 65 74 74 61 7b 5c | 74 68 65 5c 65 71 6e 75 |egetta{\|the\eqnu|
|00000cd0| 6d 7d 5c 66 69 0a 20 20 | 20 20 5c 69 66 73 69 6d |m}\fi.  |  \ifsim|
|00000ce0| 62 6f 6c 69 0a 20 20 20 | 20 20 20 20 5c 69 6d 6d |boli.   |    \imm|
|00000cf0| 65 64 69 61 74 65 5c 77 | 72 69 74 65 5c 66 69 6c |ediate\w|rite\fil|
|00000d00| 65 73 69 6d 62 6f 6c 69 | 7b 20 20 45 71 75 61 7a |esimboli|{  Equaz|
|00000d10| 69 6f 6e 65 20 5c 75 73 | 61 65 67 65 74 74 61 20 |ione \us|aegetta |
|00000d20| 3a 20 20 65 71 72 65 66 | 2e 20 20 20 23 31 7d 5c |:  eqref|.   #1}\|
|00000d30| 66 69 0a 20 20 20 20 5c | 69 66 72 69 66 65 72 69 |fi.    \|ifriferi|
|00000d40| 6d 65 6e 74 69 0a 20 20 | 20 20 20 20 20 5c 69 6d |menti.  |     \im|
|00000d50| 6d 65 64 69 61 74 65 5c | 77 72 69 74 65 5c 66 69 |mediate\|write\fi|
|00000d60| 6c 65 61 75 73 69 6c 69 | 61 72 69 6f 7b 5c 73 74 |leausili|ario{\st|
|00000d70| 72 69 6e 67 5c 65 78 70 | 61 6e 64 61 66 74 65 72 |ring\exp|andafter|
|00000d80| 5c 73 74 72 69 6e 67 5c | 65 64 65 66 0a 20 20 20 |\string\|edef.   |
|00000d90| 20 20 20 20 5c 73 74 72 | 69 6e 67 5c 63 73 6e 61 |    \str|ing\csna|
|00000da0| 6d 65 40 65 71 40 23 31 | 5c 73 74 72 69 6e 67 5c |me@eq@#1|\string\|
|00000db0| 65 6e 64 63 73 6e 61 6d | 65 7b 5c 75 73 61 65 67 |endcsnam|e{\usaeg|
|00000dc0| 65 74 74 61 7d 7d 5c 66 | 69 7d 0a 0a 5c 64 65 66 |etta}}\f|i}..\def|
|00000dd0| 5c 61 75 74 6f 65 71 6e | 6f 23 31 7b 5c 65 71 6c |\autoeqn|o#1{\eql|
|00000de0| 61 62 65 6c 7b 23 31 7d | 5c 65 71 6e 6f 28 5c 63 |abel{#1}|\eqno(\c|
|00000df0| 73 6e 61 6d 65 40 65 71 | 40 23 31 5c 65 6e 64 63 |sname@eq|@#1\endc|
|00000e00| 73 6e 61 6d 65 29 7d 0a | 5c 64 65 66 5c 61 75 74 |sname)}.|\def\aut|
|00000e10| 6f 6c 65 71 6e 6f 23 31 | 7b 5c 65 71 6c 61 62 65 |oleqno#1|{\eqlabe|
|00000e20| 6c 7b 23 31 7d 5c 6c 65 | 71 6e 6f 28 5c 63 73 6e |l{#1}\le|qno(\csn|
|00000e30| 61 6d 65 40 65 71 40 23 | 31 5c 65 6e 64 63 73 6e |ame@eq@#|1\endcsn|
|00000e40| 61 6d 65 29 7d 0a 0a 5c | 64 65 66 5c 63 6c 61 62 |ame)}..\|def\clab|
|00000e50| 65 6c 23 31 7b 5c 67 6c | 6f 62 61 6c 5c 61 64 76 |el#1{\gl|obal\adv|
|00000e60| 61 6e 63 65 5c 63 69 74 | 6e 75 6d 20 62 79 20 31 |ance\cit|num by 1|
|00000e70| 25 0a 5c 78 64 65 66 5c | 6c 61 63 69 74 61 7a 69 |%.\xdef\|lacitazi|
|00000e80| 6f 6e 65 7b 5c 74 68 65 | 5c 63 69 74 6e 75 6d 7d |one{\the|\citnum}|
|00000e90| 25 0a 5c 64 65 66 5c 75 | 73 61 65 67 65 74 74 61 |%.\def\u|saegetta|
|00000ea0| 7b 31 7d 5c 73 65 69 6e | 64 65 66 69 6e 69 74 6f |{1}\sein|definito|
|00000eb0| 7b 40 63 40 23 31 7d 5c | 64 65 66 5c 75 73 61 65 |{@c@#1}\|def\usae|
|00000ec0| 67 65 74 74 61 7b 32 7d | 5c 66 69 25 0a 5c 65 78 |getta{2}|\fi%.\ex|
|00000ed0| 70 61 6e 64 61 66 74 65 | 72 5c 69 66 78 5c 63 73 |pandafte|r\ifx\cs|
|00000ee0| 6e 61 6d 65 40 63 40 23 | 31 5c 65 6e 64 63 73 6e |name@c@#|1\endcsn|
|00000ef0| 61 6d 65 5c 6c 61 63 69 | 74 61 7a 69 6f 6e 65 5c |ame\laci|tazione\|
|00000f00| 64 65 66 5c 75 73 61 65 | 67 65 74 74 61 7b 32 7d |def\usae|getta{2}|
|00000f10| 5c 66 69 25 0a 5c 69 66 | 6f 64 64 5c 75 73 61 65 |\fi%.\if|odd\usae|
|00000f20| 67 65 74 74 61 5c 69 6d | 6d 65 64 69 61 74 65 5c |getta\im|mediate\|
|00000f30| 77 72 69 74 65 31 36 25 | 0a 7b 20 21 21 21 20 70 |write16%|.{ !!! p|
|00000f40| 6f 73 73 69 62 69 6c 69 | 20 72 69 66 65 72 69 6d |ossibili| riferim|
|00000f50| 65 6e 74 69 20 65 72 72 | 61 74 69 20 61 20 5c 73 |enti err|ati a \s|
|00000f60| 74 72 69 6e 67 5c 63 72 | 65 66 7b 23 31 7d 20 7d |tring\cr|ef{#1} }|
|00000f70| 5c 66 69 25 0a 5c 65 78 | 70 61 6e 64 61 66 74 65 |\fi%.\ex|pandafte|
|00000f80| 72 5c 78 64 65 66 5c 63 | 73 6e 61 6d 65 40 63 40 |r\xdef\c|sname@c@|
|00000f90| 23 31 5c 65 6e 64 63 73 | 6e 61 6d 65 7b 5c 6c 61 |#1\endcs|name{\la|
|00000fa0| 63 69 74 61 7a 69 6f 6e | 65 7d 25 0a 5c 69 66 73 |citazion|e}%.\ifs|
|00000fb0| 69 6d 62 6f 6c 69 25 0a | 5c 69 6d 6d 65 64 69 61 |imboli%.|\immedia|
|00000fc0| 74 65 5c 77 72 69 74 65 | 5c 66 69 6c 65 73 69 6d |te\write|\filesim|
|00000fd0| 62 6f 6c 69 7b 20 20 43 | 69 74 61 7a 69 6f 6e 65 |boli{  C|itazione|
|00000fe0| 20 5c 6c 61 63 69 74 61 | 7a 69 6f 6e 65 20 3a 20 | \lacita|zione : |
|00000ff0| 20 20 63 72 65 66 2e 20 | 20 20 23 31 7d 5c 66 69 |  cref. |  #1}\fi|
|00001000| 25 0a 5c 69 66 72 69 66 | 65 72 69 6d 65 6e 74 69 |%.\ifrif|erimenti|
|00001010| 5c 69 6d 6d 65 64 69 61 | 74 65 5c 77 72 69 74 65 |\immedia|te\write|
|00001020| 5c 66 69 6c 65 61 75 73 | 69 6c 69 61 72 69 6f 7b |\fileaus|iliario{|
|00001030| 5c 73 74 72 69 6e 67 5c | 65 78 70 61 6e 64 61 66 |\string\|expandaf|
|00001040| 74 65 72 5c 73 74 72 69 | 6e 67 5c 65 64 65 66 25 |ter\stri|ng\edef%|
|00001050| 0a 5c 73 74 72 69 6e 67 | 5c 63 73 6e 61 6d 65 40 |.\string|\csname@|
|00001060| 63 40 23 31 5c 73 74 72 | 69 6e 67 5c 65 6e 64 63 |c@#1\str|ing\endc|
|00001070| 73 6e 61 6d 65 7b 5c 6c | 61 63 69 74 61 7a 69 6f |sname{\l|acitazio|
|00001080| 6e 65 7d 7d 5c 66 69 7d | 25 0a 0a 5c 64 65 66 5c |ne}}\fi}|%..\def\|
|00001090| 63 69 74 65 23 31 7b 24 | 5e 7b 5b 5c 63 72 65 66 |cite#1{$|^{[\cref|
|000010a0| 7b 23 31 7d 5d 7d 24 7d | 0a 5c 64 65 66 5c 66 69 |{#1}]}$}|.\def\fi|
|000010b0| 72 73 74 63 69 74 65 23 | 31 7b 5c 63 6c 61 62 65 |rstcite#|1{\clabe|
|000010c0| 6c 7b 23 31 7d 5c 63 69 | 74 65 7b 23 31 7d 7d 0a |l{#1}\ci|te{#1}}.|
|000010d0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+